home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / djgpp / diffs / gdb-4.12 / gdb / go32targ.c < prev    next >
Encoding:
Text File  |  1994-08-05  |  13.3 KB  |  490 lines
  1. *** orig/gdb-4.12/gdb/go32targ.c    Tue Jul 26 01:10:40 1994
  2. --- src/gdb-4.12/gdb/go32targ.c    Wed Jul 27 02:03:38 1994
  3. ***************
  4. *** 0 ****
  5. --- 1,484 ----
  6. + /* Target-vector operations for controlling go32 processes, for GDB.
  7. +    Copyright 1994 Free Software Foundation, Inc.
  8. +    Contributed by DJ Delorie.
  9. + 
  10. + This file is part of GDB.
  11. + 
  12. + This program is free software; you can redistribute it and/or modify
  13. + it under the terms of the GNU General Public License as published by
  14. + the Free Software Foundation; either version 2 of the License, or
  15. + (at your option) any later version.
  16. + 
  17. + This program is distributed in the hope that it will be useful,
  18. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  19. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20. + GNU General Public License for more details.
  21. + 
  22. + You should have received a copy of the GNU General Public License
  23. + along with this program; if not, write to the Free Software
  24. + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  25. + 
  26. + #include "defs.h"
  27. + #include "frame.h"  /* required by inferior.h */
  28. + #include "inferior.h"
  29. + #include "target.h"
  30. + #include "wait.h"
  31. + #include "gdbcore.h"
  32. + #include "command.h"
  33. + #include <signal.h>
  34. + 
  35. + extern char **environ;
  36. + 
  37. + /* Forward declaration */
  38. + extern struct target_ops go32_ops;
  39. + 
  40. + /* ╔════════════════════════════════════════════════════════════════════════════╗
  41. +    ║  Go32's external debugger interface routines                ║
  42. +    ╚════════════════════════════════════════════════════════════════════════════╝ */
  43. + 
  44. + #define SOME_PID 42
  45. + 
  46. + int prog_has_started = 0;
  47. + 
  48. + #include <sys/farptr.h>
  49. + #define far
  50. + #include <../go32/gotypes.h>    /* from go32 sources */
  51. + #include <../go32/tss.h>
  52. + #include <../go32/extdebug.h>
  53. + #include <../go32/paging.h>
  54. + 
  55. + static ExternalDebuggerInfo edi;
  56. + static TSS a_tss;
  57. + static AREAS areas[MAX_AREA];
  58. + 
  59. + static int my_ds;
  60. + static int app_ds;
  61. + static int edi_seg;
  62. + static int edi_ofs;
  63. + 
  64. + #define r_ofs(x) ((int)(&(((TSS *)0)->x)))
  65. + static struct {
  66. +   int tss_ofs;
  67. +   int size;
  68. + } regno_mapping[] = {
  69. +   r_ofs(tss_eax), 4,
  70. +   r_ofs(tss_ecx), 4,
  71. +   r_ofs(tss_edx), 4,
  72. +   r_ofs(tss_ebx), 4,
  73. +   r_ofs(tss_esp), 4,
  74. +   r_ofs(tss_ebp), 4,
  75. +   r_ofs(tss_esi), 4,
  76. +   r_ofs(tss_edi), 4,
  77. +   r_ofs(tss_eip), 4,
  78. +   r_ofs(tss_eflags), 4,
  79. +   r_ofs(tss_cs), 2,
  80. +   r_ofs(tss_ss), 2,
  81. +   r_ofs(tss_ds), 2,
  82. +   r_ofs(tss_es), 2,
  83. +   r_ofs(tss_fs), 2,
  84. +   r_ofs(tss_gs), 2
  85. + };
  86. + 
  87. + static struct {
  88. +   int go32_sig;
  89. +   int gdb_sig;
  90. + } sig_map[] = {
  91. +   0, TARGET_SIGNAL_BUS,
  92. +   1, TARGET_SIGNAL_TRAP,
  93. +   2, TARGET_SIGNAL_UNKNOWN,
  94. +   3, TARGET_SIGNAL_TRAP,
  95. +   4, TARGET_SIGNAL_FPE,
  96. +   5, TARGET_SIGNAL_SEGV,
  97. +   6, TARGET_SIGNAL_ILL,
  98. +   7, TARGET_SIGNAL_FPE,
  99. +   8, TARGET_SIGNAL_BUS,
  100. +   9, TARGET_SIGNAL_FPE,
  101. +   10, TARGET_SIGNAL_BUS,
  102. +   11, TARGET_SIGNAL_SEGV,
  103. +   12, TARGET_SIGNAL_SEGV,
  104. +   13, TARGET_SIGNAL_SEGV,
  105. +   14, TARGET_SIGNAL_SEGV,
  106. +   16, TARGET_SIGNAL_FPE,
  107. +   31, TARGET_SIGNAL_ILL,
  108. +   -1,-1
  109. + };
  110. + 
  111. + static void go32_edi_init()
  112. + {
  113. +   int i;
  114. +   asm("movw $0xfe01,%ax");
  115. +   asm("int $0x21");
  116. +   asm("movl %edx,_edi_seg");
  117. +   asm("movl %eax,_edi_ofs");
  118. +   asm("xor  %eax,%eax");
  119. +   asm("movw %ds,%ax");
  120. +   asm("movl %eax,_my_ds");
  121. +   movedata(edi_seg, edi_ofs, my_ds, (int)(&edi), sizeof(edi));
  122. +   movedata(edi.a_tss_seg, edi.a_tss_ofs, my_ds, (int)(&a_tss), sizeof(TSS));
  123. +   app_ds = a_tss.tss_ds;
  124. +   movedata(edi.areas_seg, edi.areas_ofs, my_ds, (int)areas, sizeof(areas));
  125. +   for (i=0; i<MAX_AREA; i++)
  126. +   {
  127. +     areas[i].first_addr -= edi.app_base;
  128. +     areas[i].last_addr -= edi.app_base;
  129. +   }
  130. + }
  131. + 
  132. + static void go32_edi_run_child(void)
  133. + {
  134. +   int i;
  135. +   prog_has_started = 1;
  136. + 
  137. +   movedata(my_ds, (int)(&edi), edi_seg, edi_ofs, sizeof(edi));
  138. +   movedata(my_ds, (int)(&a_tss), edi.a_tss_seg, edi.a_tss_ofs, sizeof(TSS));
  139. +   asm("movw $0xfe00,%ax");
  140. +   asm("int $0x21");
  141. +   movedata(edi_seg, edi_ofs, my_ds, (int)(&edi), sizeof(edi));
  142. +   movedata(edi.a_tss_seg, edi.a_tss_ofs, my_ds, (int)(&a_tss), sizeof(TSS));
  143. + 
  144. +   movedata(edi.areas_seg, edi.areas_ofs, my_ds, (int)areas, sizeof(areas));
  145. +   for (i=0; i<MAX_AREA; i++)
  146. +   {
  147. +     areas[i].first_addr -= edi.app_base;
  148. +     areas[i].last_addr -= edi.app_base;
  149. +   }
  150. + }
  151. + 
  152. + static int invalid_addr(word32 a, unsigned len)
  153. + {
  154. +   int i;
  155. +   if ((int)invalid_addr > 0)
  156. +     return 0;
  157. +   for (i=0; i<MAX_AREA; i++)
  158. +     if (a>=areas[i].first_addr && (a+len-1) <= areas[i].last_addr)
  159. +       return 0;
  160. +   return 1;
  161. + }
  162. + 
  163. + static int go32_edi_read_child(word32 child_addr, void *buf, unsigned len)
  164. + {
  165. +   if (invalid_addr(child_addr, len))
  166. +     return 0;
  167. +   movedata(app_ds, child_addr, my_ds, (int)buf, len);
  168. +   return 0;
  169. + }
  170. + 
  171. + static int go32_edi_write_child(word32 child_addr, void *buf, unsigned len)
  172. + {
  173. +   if (invalid_addr(child_addr, len))
  174. +     return 0;
  175. +   movedata(my_ds, (int)buf, app_ds, child_addr, len);
  176. +   return 0;
  177. + }
  178. + 
  179. + static char *new_argv[3] = {
  180. +   "gdb",
  181. +   0,
  182. +   0
  183. + };
  184. + 
  185. + void
  186. + init_go32_extdebug(int *argc, char ***argv)
  187. + {
  188. +   char *fn;
  189. +   int i, v;
  190. +   int tenvp;
  191. + 
  192. +   go32_edi_init();
  193. + 
  194. +   fn = (char *)malloc(edi.filename_len + 1);
  195. +   movedata(edi.filename_seg, edi.filename_ofs, my_ds, (int)(fn), edi.filename_len+1);
  196. + 
  197. + #if 0
  198. +   printf("filename: %s\n", fn);
  199. + 
  200. +   printf("text: %#08x - %#08x\n", areas[A_text].first_addr, areas[A_text].last_addr);
  201. +   printf("data: %#08x - %#08x\n", areas[A_data].first_addr, areas[A_data].last_addr);
  202. +   printf("bss:  %#08x - %#08x\n", areas[A_bss].first_addr, areas[A_bss].last_addr);
  203. + 
  204. +   printf("stack: %#x\n", a_tss.tss_esp);
  205. + #endif
  206. + 
  207. +   go32_edi_read_child(a_tss.tss_esp+8, &tenvp, 4);
  208. +   
  209. +   new_argv[1] = fn;
  210. +   
  211. +   for (i=0; ; i++)
  212. +   {
  213. +     int ep;
  214. +     char *s;
  215. +     go32_edi_read_child(tenvp+i*4, &ep, 4);
  216. +     if (!ep)
  217. +       break;
  218. +   }
  219. +   environ = (char **)malloc((i+1) * sizeof(char *));
  220. + 
  221. +   for (i=0; ; i++)
  222. +   {
  223. +     int ep;
  224. +     char *s;
  225. +     go32_edi_read_child(tenvp+i*4, &ep, 4);
  226. +     if (!ep)
  227. +     {
  228. +       environ[i] = 0;
  229. +       break;
  230. +     }
  231. +     _farsetsel(app_ds);
  232. +     for (v=0; _farnspeekb(ep+v); v++);
  233. +     environ[i] = (char *)malloc(v+1);
  234. +     go32_edi_read_child(ep, environ[i], v+1);
  235. +   }
  236. +   
  237. +   *argc = 2;
  238. +   *argv = new_argv;
  239. + }
  240. + 
  241. + /* ───────────────────────────────────────────────────────────────────────────── */
  242. + 
  243. + /* special sbrk that uses local heap and zeros memory. */
  244. + void *
  245. + sbrk(int l)
  246. + {
  247. +   extern int end;
  248. +   static int sold = (int)&end;
  249. +   memset(sold, 0, l);
  250. +   sold += l;
  251. +   return (void *)(sold-l);
  252. + }
  253. + 
  254. + /* ═════════════════════════════════════════════════════════════════════════════ */
  255. + 
  256. + static void
  257. + go32_open(char *name, int from_tty)
  258. + {
  259. +   printf("Use the `run' command to run go32 programs\n");
  260. + }
  261. + 
  262. + /* ───────────────────────────────────────────────────────────────────────────── */
  263. + 
  264. + static void go32_close(int quitting)
  265. + {
  266. + }
  267. + 
  268. + /* ───────────────────────────────────────────────────────────────────────────── */
  269. + 
  270. + static void
  271. + go32_attach(char *args, int from_tty)
  272. + {
  273. +   printf("Use the `run' command to run go32 programs\n");
  274. + }
  275. + 
  276. + /* ───────────────────────────────────────────────────────────────────────────── */
  277. + 
  278. + static void
  279. + go32_detach(char *args, int from_tty)
  280. + {
  281. + }
  282. + 
  283. + /* ───────────────────────────────────────────────────────────────────────────── */
  284. + 
  285. + static int resume_is_step;
  286. + 
  287. + static void
  288. + go32_resume(int pid, int step, enum target_signal siggnal)
  289. + {
  290. +   resume_is_step = step;
  291. + }
  292. + 
  293. + /* ───────────────────────────────────────────────────────────────────────────── */
  294. + 
  295. + static int
  296. + go32_wait(int pid, struct target_waitstatus *status)
  297. + {
  298. + /*  printf("go32_wait %d\n", pid); */
  299. +   if (resume_is_step)
  300. +     a_tss.tss_eflags |= 0x0100;
  301. +   else
  302. +     a_tss.tss_eflags &= 0xfeff;
  303. +   go32_edi_run_child();
  304. +   if (a_tss.tss_irqn == 0x21)
  305. +   {
  306. +     status->kind = TARGET_WAITKIND_EXITED;
  307. +     status->value.integer = a_tss.tss_eax & 0xff;
  308. +   }
  309. +   else
  310. +   {
  311. +     int i;
  312. +     status->value.sig = TARGET_SIGNAL_UNKNOWN;
  313. +     for (i=0; sig_map[i].go32_sig != -1; i++)
  314. +       if (a_tss.tss_irqn == sig_map[i].go32_sig)
  315. +       {
  316. +         status->value.sig = sig_map[i].gdb_sig;
  317. +         break;
  318. +       }
  319. +     status->kind = TARGET_WAITKIND_STOPPED;
  320. +   }
  321. +   return SOME_PID;
  322. + }
  323. + 
  324. + /* ───────────────────────────────────────────────────────────────────────────── */
  325. + 
  326. + static void
  327. + go32_fetch_registers(int regno)
  328. + {
  329. +   if (regno >= 0)
  330. +     supply_register(regno, (char *)&a_tss + regno_mapping[regno].tss_ofs);
  331. +   else
  332. +   {
  333. +     int r;
  334. +     for (r=0; r<sizeof(regno_mapping)/sizeof(regno_mapping[0]); r++)
  335. +       supply_register(r, (char *)&a_tss + regno_mapping[r].tss_ofs);
  336. +   }
  337. + }
  338. + 
  339. + /* ───────────────────────────────────────────────────────────────────────────── */
  340. + 
  341. + static void store_register(int regno)
  342. + {
  343. +   char *rp = (char *)&a_tss + regno_mapping[regno].tss_ofs;
  344. +   int v = *(int *)(®isters[REGISTER_BYTE(regno)]);
  345. +   switch (regno_mapping[regno].size)
  346. +   {
  347. +     case 4:
  348. +       *(int *)rp = v;
  349. +       break;
  350. +     case 2:
  351. +       *(short *)rp = v;
  352. +       break;
  353. +   }
  354. + }
  355. + 
  356. + static void
  357. + go32_store_registers(int regno)
  358. + {
  359. +   if (regno >= 0)
  360. +     store_register(regno);
  361. +   else
  362. +   {
  363. +     int r;
  364. +     for (r=0; r<sizeof(regno_mapping)/sizeof(regno_mapping[0]); r++)
  365. +       store_register(regno);
  366. +   }
  367. + }
  368. + 
  369. + /* ───────────────────────────────────────────────────────────────────────────── */
  370. + 
  371. + static void
  372. + go32_prepare_to_store(void)
  373. + {
  374. + }
  375. + 
  376. + /* ───────────────────────────────────────────────────────────────────────────── */
  377. + 
  378. + static int
  379. + go32_xfer_memory(CORE_ADDR memaddr, char *myaddr, int len, int write,
  380. +          struct target_ops *target)
  381. + {
  382. + /*  printf("go32_xfer_memory %x %x %d %d\n", memaddr, myaddr, len, write); */
  383. +   if (write)
  384. +     go32_edi_write_child(memaddr, myaddr, len);
  385. +   else
  386. +     go32_edi_read_child(memaddr, myaddr, len);
  387. +   return len;
  388. + }
  389. + 
  390. + /* ───────────────────────────────────────────────────────────────────────────── */
  391. + 
  392. + static void
  393. + go32_files_info(struct target_ops *target)
  394. + {
  395. +   printf_filtered("You are running a go32 program called `%s'\n", new_argv[1]);
  396. + }
  397. + 
  398. + /* ───────────────────────────────────────────────────────────────────────────── */
  399. + 
  400. + static void
  401. + go32_kill_inferior(void)
  402. + {
  403. +   /* nothing to do */
  404. + }
  405. + 
  406. + /* ───────────────────────────────────────────────────────────────────────────── */
  407. + 
  408. + static void
  409. + go32_create_inferior(char *exec_file, char *args, char **env)
  410. + {
  411. +   if (prog_has_started)
  412. +   {
  413. +     printf("The program has been started once already.  Please quit and restart gdb.\n");
  414. +     return;
  415. +   }
  416. +   inferior_pid = SOME_PID;
  417. +   push_target(&go32_ops);
  418. +   clear_proceed_status();
  419. +   proceed((CORE_ADDR) -1, TARGET_SIGNAL_0, 0);
  420. + }
  421. + 
  422. + /* ───────────────────────────────────────────────────────────────────────────── */
  423. + 
  424. + static void
  425. + go32_mourn_inferior(void)
  426. + {
  427. +   unpush_target(&go32_ops);
  428. + }
  429. + 
  430. + /* ───────────────────────────────────────────────────────────────────────────── */
  431. + 
  432. + static int go32_can_run(void)
  433. + {
  434. +   return 1;
  435. + }
  436. + 
  437. + /* ───────────────────────────────────────────────────────────────────────────── */
  438. + 
  439. + static void ignore(void) {}
  440. + static void ignore2(char *a,int b) {}
  441. + 
  442. + /* ═════════════════════════════════════════════════════════════════════════════ */
  443. + 
  444. + struct target_ops go32_ops = {
  445. +   "go32",            /* to_shortname */
  446. +   "go32 target process",    /* to_longname */
  447. +   "Program loaded by go32, when gdb is used as an external debugger",    /* to_doc */
  448. +   go32_open,            /* to_open */
  449. +   go32_close,            /* to_close */
  450. +   go32_attach,            /* to_attach */
  451. +   go32_detach,             /* to_detach */
  452. +   go32_resume,            /* to_resume */
  453. +   go32_wait,            /* to_wait */
  454. +   go32_fetch_registers,        /* to_fetch_registers */
  455. +   go32_store_registers,        /* to_store_registers */
  456. +   go32_prepare_to_store,    /* to_prepare_to_store */
  457. +   go32_xfer_memory,        /* to_xfer_memory */
  458. +   go32_files_info,        /* to_files_info */
  459. +   memory_insert_breakpoint,    /* to_insert_breakpoint */
  460. +   memory_remove_breakpoint,    /* to_remove_breakpoint */
  461. +   ignore,            /* to_terminal_init */
  462. +   ignore,             /* to_terminal_inferior */
  463. +   ignore,            /* to_terminal_ours_for_output */
  464. +   ignore,            /* to_terminal_ours */
  465. +   ignore2,            /* to_terminal_info */
  466. +   go32_kill_inferior,        /* to_kill */
  467. +   0,                /* to_load */
  468. +   0,                /* to_lookup_symbol */
  469. +   go32_create_inferior,        /* to_create_inferior */
  470. +   go32_mourn_inferior,        /* to_mourn_inferior */
  471. +   go32_can_run,            /* to_can_run */
  472. +   0,                 /* to_notice_signals */
  473. +   process_stratum,        /* to_stratum */
  474. +   0,                /* to_next */
  475. +   1,                /* to_has_all_memory */
  476. +   1,                /* to_has_memory */
  477. +   1,                /* to_has_stack */
  478. +   1,                /* to_has_registers */
  479. +   1,                /* to_has_execution */
  480. +   0,                /* sections */
  481. +   0,                /* sections_end */
  482. +   OPS_MAGIC            /* to_magic */
  483. + };
  484. + 
  485. + void
  486. + _initialize_inftarg ()
  487. + {
  488. +   add_target (&go32_ops);
  489. + }
  490.